home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
SOUND-2.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-08-31
|
856b
|
28 lines
' SOUND-2.BAS
' This program demonstrates how to play a song in BASIC.
CLS
INPUT "Press Enter to begin...", dummy$
FOR i% = 1 TO 34
READ note%, duration%
SOUND note%, duration%
NEXT i%
' My bon- nie lies o- ver the
DATA 392, 8, 659, 8, 587, 8, 523, 8, 587, 8, 523, 8, 440, 8
' o- cean, My bon- nie lies
DATA 392, 8, 330, 32, 392, 8, 659, 8, 587, 8, 523, 8
' o- ver the sea; My bon- nie
DATA 523, 8, 494, 8, 523, 8, 587, 40, 392, 8, 659, 8, 587, 8
' lies o- ver the o- cean-- O
DATA 523, 8, 587, 8, 523, 8, 440, 8, 392, 8, 330, 32, 392, 8
' bring back my bon- nie to me!
DATA 440, 8, 587, 8, 523, 8, 494, 8, 440, 8, 494, 8, 523, 32